home *** CD-ROM | disk | FTP | other *** search
- .xlist
-
- ; Includes for the library routines. For performance reasons you may want
- ; to replace the "stdlib.a" include with the names of the individual packages
- ; you actually use. Doing so will speed up assembly by quite a bit.
-
- include stdlib.a
- includelib stdlib.lib
-
- ; Note: if you want to use the pattern matching functions in the patterns
- ; package, uncomment the following line:
-
- ; matchfuncs
-
- .list
-
-
-
- ;*****************************************************************************
-
- dseg segment para public 'data'
-
- ; Global variables go here:
-
-
- ; Note: If you want to use the STDLIB standard character sets (alpha, digits,
- ; etc.) uncomment the following line:
-
- ; include stdsets.a
-
- dseg ends
-
- ;*****************************************************************************
-
-
-
-
-
- cseg segment para public 'code'
- assume cs:cseg, ds:dseg
-
-
- ;-----------------------------------------------------------------
- ;
- ; Here is a good place to put your procedures,
- ; functions, and other routines:
- ;
- ;
- ;
- ;
- ;-----------------------------------------------------------------
- ;
- ; Main is the main program. Program execution always begins here.
- ;
- Main proc
- mov ax, dseg
- mov ds, ax
- mov es, ax
-
- ; Start by calling the memory manager initialization routine. This
- ; particular call allocates all available memory to the heap. See
- ; MEMINIT2 if you want to allocate a fixed heap.
- ;
- ; Many library routines use the heap, hence the presence of this call
- ; in this file. On the other hand, you may safely remove this call
- ; if you do not call any library routines which use the heap.
-
- meminit
-
-
-
- ;***************************************************************************
- ;
- ; Put your main program here.
- ;
- ;***************************************************************************
-
-
-
-
-
- Quit: ExitPgm ;DOS macro to quit program.
- Main endp
-
- cseg ends
-
-
-
- ; Allocate a reasonable amount of space for the stack (8k).
- ; Note: if you use the pattern matching package you should set up a
- ; somewhat larger stack.
-
- sseg segment para stack 'stack'
- stk db 1024 dup ("stack ")
- sseg ends
-
-
- ; zzzzzzseg must be the last segment that gets loaded into memory!
- ; This is where the heap begins.
-
- zzzzzzseg segment para public 'zzzzzz'
- LastBytes db 16 dup (?)
- zzzzzzseg ends
- end Main